home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / 64-EXCHANGE.ARC / 64EXCH FILE MKR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.9 KB  |  139 lines
  1. 100 REM 64MKER BY TOM NICHOLLS 75115,75
  2. 110 REM MAY GIVE SOME TROUBLE (ERROR 74-
  3. 120 REM DRIVE NOT READY) WHEN USING THE
  4. 130 REM FAST LOAD CART. IF SO, RE-RUN
  5. 140 REM OR RE-SET COMPUTER.
  6. 150 :
  7. 160 POKE53272,23:POKE53281,11:POKE53280,12:POKE646,15
  8. 170 PRINT"[147]        [200]IT (I) FOR [201]NSTRUCTIONS"
  9. 180 PRINT"        [193]NY OTHER KEY TO START"
  10. 190 GETI$:IFI$=""THEN190
  11. 200 IFI$="I"THEN220
  12. 210 GOTO480
  13. 220 PRINT"[147][212]HIS PROGRAM WILL MAKE THE [194]ULLETIN"
  14. 230 PRINT"FILES FOR 64[197][216][195][200][193][206][199][197] [194][194][211] PROGRAM."
  15. 240 PRINT"[212]YPE IN YOUR MESSAGE BUT DO NOT USE "
  16. 250 PRINT"COMMAS, COLONS OR DOUBLE QUOTES."
  17. 260 PRINT"[215]HEN YOU WANT 64[197][216][195][200][193][206][199][197] TO PAUSE "
  18. 270 PRINT"AFTER ALL OF PART OF YOUR MESSAGE HAS"
  19. 280 PRINT"BEEN DISPLAYED ENTER  CO  AT THE START"
  20. 290 PRINT"OF A LINE. 64[197][216][195][200][193][206][199][197] WILL PROMPT THE"
  21. 300 PRINT"READER WITH '[195]ONINUE?' WHEN IT SEES THE"
  22. 310 PRINT"CO."
  23. 320 INPUT"[200]IT RETURN";JK$
  24. 330 PRINT"[194]ULLETIN 1 IS FOR THE MESSAGE BEFORE"
  25. 340 PRINT"SIGN-ON. [194]ULLETIN 2 IS FOR MESSAGES"
  26. 350 PRINT"THAT COMES RIGHT AFTER SIGN ON AND WILL"
  27. 360 PRINT"ALWAYS BE PREFACED AUTOMATICALLY WITH"
  28. 370 PRINT"[194] [213] [204] [204] [197] [212] [201] [206] [211]."
  29. 380 PRINT"[206]OTE THAT YOU MAY ADD NEW MESSAGES TO"
  30. 390 PRINT"[194]ULLETIN 2. [212]HE NEWEST MESSAGE WILL BE"
  31. 400 PRINT"AT THE START OF THE FILE SO THAT USERS"
  32. 410 PRINT"CAN STOP READING WHEN THEY SEE INFO"
  33. 420 PRINT"THEY HAVE READ ON A PREVIOUS VISIT."
  34. 430 PRINT"[196]ON'T FORGET TO PLACE A  CO  AFTER "
  35. 440 PRINT"EACH MESSAGE."
  36. 450 PRINT"[201]F YOU RE-ENTER INFO INTO [194]ULLETIN 1,"
  37. 460 PRINT"THE OLD DATA WILL BE OVER-WRITTEN."
  38. 470 INPUT"[200]IT RETURN ";KJ$
  39. 480 Q$=CHR$(34)+CHR$(0)+CHR$(34)
  40. 490 EF$=CHR$(34)+"EOF"+CHR$(34)
  41. 500 CLOSE15:CLOSE1:CLOSE2:OPEN15,8,15:PRINT#15,"I"
  42. 510 FORT=1TO5000:NEXT
  43. 520 PRINT"[147][211]ELECT:"
  44. 530 PRINT"           1..[205]AKE [194]ULLETIN 1"
  45. 540 PRINT"           2..[205]AKE/[193]PPEND [194]ULLETIN 2"
  46. 550 PRINT"           3..[210]EAD [194]ULLETIN 1"
  47. 560 PRINT"           4..[210]EAD [194]ULLETIN 2"
  48. 570 PRINT"           5..[197]ND [208]ROGRAM"
  49. 580 C$="":INPUT"[197]NTER 1-5";C$
  50. 590 IFC$="5"THENCLOSE15:END
  51. 600 IFC$="1"ORC$="2"ORC$="3"ORC$="4"THEN620
  52. 610 GOTO520
  53. 620 IFC$="3"THENC$="1":GOSUB1080:GOTO500
  54. 630 IFC$="4"THENC$="2":GOSUB1080:GOTO500
  55. 640 IFC$="2"THEN660
  56. 650 OPEN1,8,3,"@0:_64[197][216][195][200][193][206][199][197] [194]1,S,W":GOTO690
  57. 660 OPEN1,8,3,"@0:TEMP,S,W"
  58. 670 PRINT#1,CHR$(34)+"[194] [213] [204] [204] [197] [212] [201] [206] [211]"+CHR$(34)
  59. 680 PRINT#1,CHR$(34)+"-----------------"+CHR$(34)
  60. 690 PRINT#1,Q$
  61. 700 PRINT"[147][212]EXT ENTRY FOR   .....   [194]ULLETIN # ";C$
  62. 710 PRINT" [193]  \  ON A LINE BY ITSELF ENDS TEXT   [146]"
  63. 720 PRINT"    ----  [212]HERE IS NO [195][213][210][211][207][210]  ----"
  64. 730 PRINT"======================================"
  65. 740 I=I+1
  66. 750 GETI$:IFI$=""THEN750
  67. 760 IFI>39THENIFI$<>CHR$(13)ANDI$<>CHR$(20)THEN750
  68. 770 IFI=1ANDI$=CHR$(13)THENPRINT:PRINT#1,Q$:I=0:V$="":GOTO740
  69. 780 IFI=1ANDI$="\"THENPRINTI$:PRINT#1,Q$:GOTO870
  70. 790 IFI$=CHR$(13)THENPRINT:GOTO840
  71. 800 IFI$=CHR$(20)THENGOSUB1060:GOTO750
  72. 810 PRINTI$;
  73. 820 V$=V$+I$
  74. 830 GOTO740
  75. 840 PRINT#1,CHR$(34)+V$+CHR$(34)
  76. 850 I=0:V$=""
  77. 860 GOTO740
  78. 870 IFC$="1"THENPRINT#1,EF$:PRINT#1,EF$:CLOSE15:CLOSE1:GOTO500
  79. 880 GOSUB930:CLOSE1
  80. 890 IFY=1GOTO910
  81. 900 PRINT#15,"S0:_64[197][216][195][200][193][206][199][197] [194]2"
  82. 910 PRINT#15,"R0:_64[197][216][195][200][193][206][199][197] [194]2=TEMP"
  83. 920 CLOSE15:GOTO500
  84. 930 Y=0:OPEN2,8,4,"_64[197][216][195][200][193][206][199][197] [194]2,S,R"
  85. 940 INPUT#15,E,E$,E1,E2
  86. 950 IFE=62THENY=1:PRINT#1,EF$:PRINT#1,EF$:RETURN
  87. 960 IFETHEN PRINTE;E$;E1;E2:CLOSE1:CLOSE2:CLOSE15:END
  88. 970 INPUT#2,G$
  89. 980 INPUT#2,G$
  90. 990 INPUT#2,G$
  91. 1000 GET#2,A$:IFA$=""THENA$=CHR$(0)
  92. 1010 SS=ST
  93. 1020 PRINT#1,A$;
  94. 1030 IFSSTHEN1050
  95. 1040 GOTO1000
  96. 1050 CLOSE2:RETURN
  97. 1060 PRINTI$;:I=I-1:IFI<2THENI=1:V$="":RETURN
  98. 1070 V$=LEFT$(V$,I-1):RETURN
  99. 1080 OPEN1,8,2,"_64[197][216][195][200][193][206][199][197] [194]"+C$
  100. 1090 INPUT#15,E,E$,E1,E2
  101. 1100 IFE=62THENINPUT"[198]ILE [206]OT [198]OUND .. [200]IT RETURN ";UI$:CLOSE1:RETURN
  102. 1110 IFETHENPRINTE;E$;E1;E2:CLOSE1:CLOSE2:CLOSE15:END
  103. 1120 PRINT"[147]           [194]ULLETIN [198]ILE "+C$+"              [146]"
  104. 1130 G=1:G$=RIGHT$("00"+MID$(STR$(G),2),3)
  105. 1140 PRINT"";G$;"[146] ";:GOTO1170
  106. 1150 G=G+1:G$=RIGHT$("00"+MID$(STR$(G),2),3)
  107. 1160 PRINT"";G$;"[146] ";
  108. 1170 GET#1,A$:IFA$=""THENA$=CHR$(0)
  109. 1180 PRINTA$;
  110. 1190 IFA$=CHR$(13)THEN1150
  111. 1200 IFSTGOTO1220
  112. 1210 GOTO1170
  113. 1220 CLOSE1:PRINT
  114. 1230 PRINT"       [200]IT [210][197][212][213][210][206] TO GO TO [205]ENU        "
  115. 1240 PRINT"[212]O DELETE LINES ENTER THE LINE NUMBER"
  116. 1250 PRINT"OF THE LAST LINE YOU WANT TO [211][193][214][197]. [193]LL"
  117. 1260 PRINT"LINES AFTER THE LINE SELECTED WILL BE"
  118. 1270 Z$="":INPUT"DELETED. '0' SCRATCHES THE FILE ";Z$
  119. 1280 IFZ$=""THENRETURN
  120. 1290 IFZ$="0"GOTO1440
  121. 1300 IFVAL(Z$)<1ORVAL(Z$)>GTHEN1230
  122. 1310 OPEN1,8,2,"_64[197][216][195][200][193][206][199][197] [194]"+C$
  123. 1320 OPEN2,8,3,"TEMP,S,W"
  124. 1330 X=0
  125. 1340 X=X+1
  126. 1350 GET#1,A$:IFA$=""THENA$=CHR$(0)
  127. 1360 SS=ST
  128. 1370 PRINT#2,A$;
  129. 1380 IFX=VAL(Z$)ANDA$=CHR$(13)THEN1420
  130. 1390 IFA$=CHR$(13)THEN1340
  131. 1400 IFSSGOTO1430
  132. 1410 GOTO1350
  133. 1420 PRINT#2,EF$:PRINT#2,EF$
  134. 1430 CLOSE1:CLOSE2
  135. 1440 PRINT#15,"S0:_64[197][216][195][200][193][206][199][197] [194]"+C$
  136. 1450 IFZ$="0"THEN1470
  137. 1460 PRINT#15,"R0:_64[197][216][195][200][193][206][199][197] [194]"+C$+"=TEMP"
  138. 1470 RETURN
  139.